home *** CD-ROM | disk | FTP | other *** search
/ Secret Rendez-vous / Secret Rendez-vous.iso / mac / Starware Movie Player / Starware Movie Player.DXR / 00018_FFWDBTN.PIC.ls < prev    next >
Encoding:
Text File  |  1995-04-24  |  474 b   |  19 lines
  1. on mouseDown
  2.   puppetSound("mouse down")
  3.   set variable to the clickOn
  4.   set oldLocV to the locV of sprite variable
  5.   set newLocV to oldLocV + 2
  6.   set the locV of sprite variable to newLocV
  7.   set oldLocH to the locH of sprite variable
  8.   set newLocH to oldLocH + 2
  9.   set the locH of sprite variable to newLocH
  10.   repeat while the stillDown
  11.     updateStage()
  12.   end repeat
  13.   sound stop 1
  14.   puppetSound(0)
  15.   updateStage()
  16.   set the movieRate of sprite 3 to 2
  17.   updateStage()
  18. end
  19.